home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macAlert.sim < prev    next >
Encoding:
Text File  |  1989-04-17  |  1.7 KB  |  51 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MACAlert
  3. %
  4. % In this module you find the programmers interface to Alerts.
  5. % It is built on top of the TOOLBOX routines in TOOLBOXControl.
  6. % For a description of the routines see Inside Macintosh, chapter 13.
  7. %
  8. % 890317/Boris Magnusson
  9. % 890416/Göran Eriksson
  10. %
  11. % ---------------------------------------------------------------------------
  12.  
  13. external class MacDialogAlert="::SInterfaces:MacDialogAlert";
  14. MacDialogAlert class MacAlert;
  15. begin
  16.     
  17. %    FUNCTION Alert(alertID: INTEGER; filterProc: ProcPtr): INTEGER;
  18.     short integer procedure Alert(alertID, filterProc);
  19.                 short integer alertId;
  20.                 integer filterProc;
  21.                 Alert:=TD.ToolboxAlert(alertID, filterProc);
  22.  
  23. %    FUNCTION StopAlert(alertID: INTEGER; filterProc: ProcPtr): INTEGER;
  24.     short integer procedure StopAlert(alertID, filterProc);
  25.                 short integer alertId;
  26.                 integer filterProc;
  27.                 StopAlert:=TD.ToolboxStopAlert(alertID, filterProc);                
  28.  
  29. %    FUNCTION NoteAlert(alertID: INTEGER; filterProc: ProcPtr): INTEGER;
  30.     short integer procedure NoteAlert(alertID, filterProc);
  31.                 short integer alertId;
  32.                 integer filterProc;
  33.                 NoteAlert:=TD.ToolboxNoteAlert(alertID, filterProc);                
  34.  
  35. %    FUNCTION CautionAlert(alertID: INTEGER; filterProc: ProcPtr): INTEGER;
  36.     short integer procedure CautionAlert(alertID, filterProc);
  37.                 short integer alertId;
  38.                 integer filterProc;
  39.                 CautionAlert:=TD.ToolboxCautionAlert(alertID, filterProc);                
  40.  
  41. %    PROCEDURE CouldAlert(alertID: INTEGER);
  42.     PROCEDURE CouldAlert(alertID);
  43.                 short integer alertId;
  44.                 TD.ToolboxCouldAlert(alertID);
  45.         
  46. %    PROCEDURE FreeAlert(alertID: INTEGER);
  47.     PROCEDURE FreeAlert(alertID);
  48.                     short integer alertId;
  49.                     TD.ToolboxFreeAlert(alertID);
  50.  
  51. end;